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-- File ProcessDef s .Mesa 

-- Last edited by Johnsson; May 18, 1977 11:36 AM 

DIRECTORY 

ControlDefs: FROM "controldef s" , 
Mopcodes: FROM "mopcodes"; 

DEFINITIONS FROM ControlDefs; 

ProcessDefs: DEFINITIONS * 
BEGIN 

-- Special op codes 

BLOCK: MACHINE CODE = INLINE [Mopcodes . zBLOCK] ; 

ProcessHandle: TYPE = POINTER TO ProcessOb ject; 
ProcessNIL: ProcessHandle = LOOPHOLE[0] ; 

ProcessObject: TYPE = PRIVATE RECORD [ 
state: StateVector , 
pn: ProcessPriority 

]; 

ProcessRegister: PRIVATE TYPE = WORD; 

AP: PRIVATE POINTER TO ProcessRegister = LOOPHOLE[20B] ; 
RP: PRIVATE POINTER TO ProcessRegister = LOOPHOLE[21B] ; 
CPN: PRIVATE POINTER TO ProcessPriority = LOOPHOLE[22B] ; 
WakeupsWaiting: PRIVATE POINTER TO WORD = LOOPHQLE[452B]; 
ActiveWord: PRIVATE POINTER TO WORD = LOOPHOLE[453B] ; 

ProcessVector: PRIVATE TYPE = ARRAY ProcessPriority OF ProcessHandle; 
PV: PRIVATE POINTER TO ProcessVector = L00PII0LE[40B] ; 

ProcessPriority: TYPE = [0..15]; 
HighestProcessPriority: ProcessPriority=0; 
Lowes tProcess Priori ty : ProcessPriority =14; 
Unscheduled: ProcessPrior ity=15 ; 

Priori tyNotAvai lab! e: ERROR; 
Inval idPriori ty : ERROR; 
Inval idProcess : ERROR; 
ProcessNotScheduled: ERROH; 

CreateProcessFromrrame: PROCEDURE [FrameHandle, ProcessPriority] RETURNS [ProcessHandle]; 
CreateProcessFromProcedure: PROCEDURE [PROCEDURE, ProcessPriority] RETURNS [ProcessHandle]; 

SetProcessPrior ity : PROCEDURE [ProcessHandle, ProcessPriority]; 
GetProcessPr iority : PROCEDURE [ProcessHandle] RETURNS [ProcessPriority]; 
GetCurrentProcess: PROCEDURE RETURNS [ProcessHandle]; 
GetCurrentPrior ity: PROCEDURE RETURNS [ProcessPriority]; 

EnumerateProcess: PROCEDURE 

[PROCEDURE [ProcessHandle] RETURNS [BOOLFAN]] RETURNS [ProcessHandle]; 

DestroyProcess , MakeProcessReady , ActivateProcess , 
DeActivateProcess: PROCEDURE [ProcessHandle]; 

Disablelnterrupts: MACHINE CODE = INLINE [Mopcodes .zIWDC] ; 
Cnablelnterrupts: MACHINE CODE = INLINE [Mopcodes . zDWDC] ; 
END. 


